`covParams` <-
function(obj) {
    obj$THETA[nrow(obj$THETA),];
}

